;Exam2012H24HaruSpring
;---------------------------
MAIN START
	CALL SUMC
	RET
;VR DC '9134','987','57','2', '36'
	END
;--------------------
SUMC START
	LAD GR1,BUF1  ;P̃|C^ݒ
	IN BUF1,LEN1  ;ŏ̐͂PƂ
	LD GR4,LEN1   ;P̒ݒ
	LAD GR3,BUF3  ;BUF3𑍘ä̗ƂĐݒ
	LAD GR2,BUF2  ;Q̃|C^ݒ
LOOP IN BUF2,LEN2 ;̐͂QƂ
	LD GR5,LEN2  ;Q̒ݒ
	;JMI FIN1   ;͏I
	JZE FIN1    ;͏I
;ӁFVisible Inside ̎dlłIN߂œ͂Ȃɂ
;̒Ƃ-1 ł͂Ȃă[i[B
;̂ߏL̂悤Ɏ蕶̃R[hύXB
	CALL ADDC
	LD GR4,GR0 ; e@@I
	PUSH 0,GR1 ;ä̗̃|C^
	LD GR1,GR3 ;P̃|C^ւ
	POP GR3 ;
	JUMP LOOP
FIN1 LAD GR3,BUF3 ; f @E
	CPA GR1,GR3 ;ä̗𔻒
	JZE FIN2
	ST GR4,LEN1
	OUT BUF1,LEN1
FIN2 ST GR4,LEN3
	OUT BUF3,LEN3
FIN3 RET
BUF1 DS  9 ;P܂͑a
BUF2 DS  9 ;Q
BUF3 DS  9 ;a܂͐P
LEN1 DS 1
LEN2 DS 1
LEN3 DS 1

	END
;---------------------
ADDC START
	RPUSH
	CPA GR4,GR5   ; ̔r
	JPL CONT
	PUSH 0,GR4    ;GR4 >= GR5 ƂȂ悤
	LD GR4,GR5    ;PƐQ
	POP GR5       ;|C^̓ւ
	PUSH 0,GR1;
	LD GR1,GR2;
	POP GR2;
CONT ADDA GR1,GR4 ;̎̃AhX
	ADDA GR2,GR5
	LD GR0,=0;
	PUSH 0
LOOP1 LAD GR2,-1,GR2 ;̃Ah
	LD GR6,0,GR2     ;̐o
	AND GR6,=#000F   ;lƂĎo
LOOP2 LAD GR1,-1,GR1
	ADDA GR6,0,GR1   ;PZ
	ADDA GR6,GR0     ;グtOZ
	CPA GR6,='9'     ;グH
	JPL CARRY
	LD GR0,=0      ;グtONA
	JUMP NEXT
CARRY LD GR0,=1    ;グtOݒ
	SUBA GR6,=10   ; a @P
NEXT PUSH 0,GR6    ;ZʂPۑ
	SUBA GR4,=1    ; b@@A
	JZE END1
	SUBA GR5,=1    ; c@@@G
	JPL LOOP1
	LD GR6,=0
	JUMP LOOP2
END1 LD GR0,GR0    ;[グH
	JZE NOCARRY
	LD GR1,='1' ; 
LOOP3 ST GR1,0,GR3 ;['1'ǉ
	LAD GR3,1,GR3
NOCARRY POP GR1    ;ZʂPo
	LD GR1,GR1
	JZE END2
	ADDA GR0,=1
	JUMP LOOP3
END2 RPOP
	RET
	END
;---------------------
